home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Controls
/
Visual Basic Controls.iso
/
vbcontrol
/
esdfeduc
/
employee.fr_
/
employee.fr
Wrap
Text File
|
1997-12-14
|
30KB
|
822 lines
VERSION 5.00
Object = "{EB554505-3E59-11D1-9EE4-444553540000}#3.0#0"; "ESDF.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmEmployees
Caption = "Employees"
ClientHeight = 6405
ClientLeft = 60
ClientTop = 345
ClientWidth = 9465
LinkTopic = "Form1"
ScaleHeight = 6405
ScaleWidth = 9465
StartUpPosition = 3 'Windows Default
Begin TabDlg.SSTab SSTab1
Height = 3015
Left = 300
TabIndex = 2
Top = 3060
Width = 7815
_ExtentX = 13785
_ExtentY = 5318
_Version = 327681
TabOrientation = 1
Style = 1
Tabs = 2
TabHeight = 520
ShowFocusRect = 0 'False
TabCaption(0) = "Personal "
TabPicture(0) = "Employee.frx":0000
Tab(0).ControlCount= 15
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label1(2)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "OLE1"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Label1(0)"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Label1(1)"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Label1(3)"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Label1(4)"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Label1(5)"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "Label1(6)"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "cedLastName"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "cedFirstName"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "ColumnEdit3"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "ColumnEdit4"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "cedDate(0)"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "ColumnCode1"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "Data1"
Tab(0).Control(14).Enabled= 0 'False
TabCaption(1) = "Professional"
TabPicture(1) = "Employee.frx":001C
Tab(1).ControlCount= 18
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Label1(7)"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Label1(8)"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Label1(9)"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "Label1(10)"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "Label1(11)"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "Label1(12)"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).Control(6)= "Label1(13)"
Tab(1).Control(6).Enabled= 0 'False
Tab(1).Control(7)= "Label1(14)"
Tab(1).Control(7).Enabled= 0 'False
Tab(1).Control(8)= "Label1(15)"
Tab(1).Control(8).Enabled= 0 'False
Tab(1).Control(9)= "ColumnEdit9"
Tab(1).Control(9).Enabled= 0 'False
Tab(1).Control(10)= "ColumnEdit8"
Tab(1).Control(10).Enabled= 0 'False
Tab(1).Control(11)= "ColumnEdit7"
Tab(1).Control(11).Enabled= 0 'False
Tab(1).Control(12)= "cedDate(1)"
Tab(1).Control(12).Enabled= 0 'False
Tab(1).Control(13)= "ColumnEdit10"
Tab(1).Control(13).Enabled= 0 'False
Tab(1).Control(14)= "ColumnEdit11"
Tab(1).Control(14).Enabled= 0 'False
Tab(1).Control(15)= "ColumnEdit12"
Tab(1).Control(15).Enabled= 0 'False
Tab(1).Control(16)= "ColumnEdit13"
Tab(1).Control(16).Enabled= 0 'False
Tab(1).Control(17)= "ColumnEdit14"
Tab(1).Control(17).Enabled= 0 'False
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "C:\Program Files\DevStudio\VB\Nwind.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 345
Left = 4260
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "Employees"
Top = 120
Visible = 0 'False
Width = 1155
End
Begin ESDF.ColumnEdit ColumnEdit14
Height = 2235
Left = -69840
TabIndex = 17
Top = 300
Width = 2535
_ExtentX = 4471
_ExtentY = 3942
DataTable = "Table1"
DataField = "Notes"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Courier New"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin ESDF.ColumnEdit ColumnEdit13
Height = 360
Left = -72180
TabIndex = 16
Top = 2100
Width = 1515
_ExtentX = 2672
_ExtentY = 635
DataTable = "Table1"
DataField = "Extension"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Courier New"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin ESDF.ColumnEdit ColumnEdit12
Height = 360
Left = -72180
TabIndex = 15
Top = 1440
Width = 1815
_ExtentX = 3201
_ExtentY = 635
DataTable = "Table1"
DataField = "HomePhone"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Courier New"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin ESDF.ColumnEdit ColumnEdit11
Height = 360
Left = -72180
TabIndex = 14
Top = 840
Width = 1515
_ExtentX = 2672
_ExtentY = 635
DataTable = "Table1"
DataField = "Country"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Courier New"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin ESDF.ColumnEdit ColumnEdit10
Height = 360
Left = -72180
TabIndex = 13
Top = 240
Width = 1575
_ExtentX = 2778
_ExtentY = 635
DataTable = "Table1"
DataField